//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UFD.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDebug *FormDebug;
//---------------------------------------------------------------------------
__fastcall TFormDebug::TFormDebug(TComponent* Owner)
        : TForm(Owner)
{
         red=255;
         green=0;
         blue=0;
}
//---------------------------------------------------------------------------
void __fastcall TFormDebug::buttonColoresClick(TObject *Sender)
{
        this->ColorDialog1->Execute();
        color = ColorDialog1->Color;
        red = color & 0x0000FF;
        green = (color & 0x00FF00)/255;
        blue = (color & 0xFF0000)/65280;
}
//---------------------------------------------------------------------------

